home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Online / News / Thor / rexx / Edge / PreviewMsg.edge < prev    next >
Encoding:
Text File  |  1996-11-11  |  1.1 KB  |  54 lines
  1. /* PreviewMsg.edge
  2. ** $VER: PreviewMsg.edge v1.1    (13.01.96)
  3. ** Original script by Troels Walsted Hansen
  4. ** An ARexx script that shows you (in THOR's messagetext listview) 
  5. ** what your message will look like when read by others in THOR.
  6. */
  7.  
  8. options results
  9.  
  10. /* needs Edge and THOR functions */
  11.  
  12. if(substr(address(),1,4) ~= "EDGE") then
  13. do
  14.     say "This script should only be started from inside Edge."
  15.     exit 20
  16. end
  17. else edgeport = address()
  18.  
  19. p = ' ' || address() || ' ' || show('P',,)
  20. thorport = pos(' THOR.',p)
  21.  
  22. if thorport > 0 then thorport = word(substr(p,thorport+1),1)
  23. else
  24. do
  25.     say 'No THOR port found!'
  26.     exit 10
  27. end
  28.  
  29. /* preview msg text in THOR */
  30.  
  31. address 'EDGE'
  32. addressof BW
  33. address value result
  34.  
  35. getenvvar _FE_DosName
  36. old=result
  37.  
  38. getenvvar _FE_Changes
  39. oldch=result
  40.  
  41. SAVEAS 't:PreviewMsg.edge.temp.file'
  42.  
  43. address(thorport)
  44. THORTOFRONT
  45. SHOWTEXT 't:PreviewMsg.edge.temp.file'
  46. if(rc ~= 0) then REQUESTNOTIFY TEXT '"'THOR.LASTERROR'"' BT '"_Ok"'
  47.  
  48. /* cleanup and exit */
  49. address
  50. putenvvar _FE_DosName old
  51. putenvvar _FE_Changes oldch
  52. address command 'delete >nil: t:PreviewMsg.edge.temp.file'
  53. exit
  54.